home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / rexx / OnlineMiami.ibrx < prev    next >
Text File  |  1998-10-30  |  752b  |  36 lines
  1. /* OnlineMiami Sören Forsberg 1998 */
  2. /*  */
  3. OPTIONS RESULTS
  4.  
  5.  
  6.     IF SHOW('Ports','MIAMI.1') THEN DO
  7.       ADDRESS 'MIAMI.1' 
  8.       'ISONLINE'
  9.       result=rc
  10.       IF result=1 THEN DO
  11.         ok=open('OnlineMiami','CON:60/100/150/22/OnlineMiami/cds')
  12.         call writeln 'OnlineMiami','    Miami is'
  13.         call writeln 'OnlineMiami','ALLREADY CONNECTED!!'
  14.         ADDRESS "COMMAND" "wait 3"
  15.       END 
  16.       'ISONLINE'
  17.       result=rc
  18.       IF result=0 THEN DO
  19.       IF EXISTS('ibrowse:rexx/busywin') THEN ADDRESS "COMMAND" 'run ibrowse:rexx/busywin ON'
  20.       'ONLINE'
  21.       END
  22.  
  23.     END
  24.  
  25.     IF ~SHOW('Ports','MIAMI.1') THEN DO
  26.         ADDRESS 'COMMAND'
  27.         'Run >NIL: MIAMI:Miami'
  28.         'SYS:RexxC/WaitForPort MIAMI.1'
  29.         IF EXISTS('ibrowse:rexx/busywin') THEN ADDRESS "COMMAND" 'run ibrowse:rexx/busywin ON'
  30.     END
  31.  
  32.  
  33. EXIT    
  34.  
  35.  
  36.